#!/usr/bin/perl -w
use DBI;
use strict;
my $db = DBI->connect("dbi:SQLite:kanjikyuu1.sqlite", "", "",{RaiseError => 1, AutoCommit => 1});
my $all = $db->selectall_arrayref("SELECT * FROM tb_cards");

foreach my $row (@$all) {
	my ($idcard,$word,$level) = @$row;
	print "$word\n";
}
